1 GOSUB60000
5 REM **** LIFE EXPECTANCY QUIZ
6 :
10 REM *** COPYRIGHT 1983
20 REM *** BY JOHN ORBAN
21 REM *** TRANSLATED FOR THE COMMODORE
22 REM *** BY DONNA K. WOODY
23 :
24 POKE53280,3:POKE53281,0:PRINT"[158]":POKE53272,23:PRINTCHR$(8)
25 V$=""
26 :
30 PRINT"[147]"TAB(18)"[204][201][198][197]"
40 PRINT""TAB(15)"[197][216][208][197][195][212][193][206][195][217]"
50 PRINT""TAB(18)"[209][213][201][218]"
60 PRINT"":FORI=1TO19:PRINT"]";:NEXT
70 FORI=20TO40:PRINT"[";:NEXT
90 PRINT"  [193]N [193]NALYSIS -- [204]ONGEVITY VS [204]IFESTYLE"
100 PRINT"      [200]OW LONG WILL ** YOU ** LIVE?"
120 PRINT"[208]RESS <[211][208][193][195][197] [194][193][210]> TO BEGIN PROGRAM....";
130 GETA$:IFA$=""THEN130
140 GOTO210
150 GETA$:IFA$=""THEN150
160 IFA$<>"N"ANDA$<>"[206]"ANDA$<>"Y"ANDA$<>"[217]"GOTO150
170 RETURN
180 PRINT"[147]             [204][201][198][197] [197][216][208][197][195][212][193][206][195][217]"
190 PRINT""TAB(19);A
200 RETURN
210 PRINT"[147]":A=72:GOSUB180
220 PRINTV$"[193]RE YOU MALE (M) OR FEMALE (F)?"
230 GETB$:IFB$=""THEN230
240 IFB$<>"M"ANDB$<>"[205]"ANDB$<>"F"ANDB$<>"[198]"THEN230
250 IFB$="M"ORB$="[205]"THENA=A-3:GOTO270
260 A=A+4
270 GOSUB180
280 PRINTV$"[196]O YOU LIVE IN A CITY OF OVER 2 MILLION POPULATION (Y/N)?"
290 GOSUB150
300 IFA$="Y"ORA$="[217]"THENA=A-2
310 GOSUB180
320 PRINTV$"[196]O YOU LIVE IN A TOWN UNDER 10,000 POP- ULATION OR ON A FARM (Y/N)?"
330 GOSUB150
340 IFA$="[217]"ORA$="Y"THENA=A+2
350 GOSUB180
360 PRINTV$"[196]O YOU WORK BEHIND A DESK (Y/N)?"
370 GOSUB150
380 IFA$="Y"ORA$="[217]"THENA=A-3
390 GOSUB180
400 PRINTV$"[196]OES YOUR WORK REQUIRE REGULAR, HEAVY   PHYSICAL LABOR (Y/N)?"
410 GOSUB150
420 IFA$="Y"ORA$="[217]"THENA=A+3
430 GOSUB180
440 PRINTV$"[196]O YOU EXERCISE STRENUOUSLY (TENNIS,"
445 PRINT"RUNNING, SWIMMING, ETC.) 5 TIMES A WEEK FOR AT LEAST 1/2 HOUR (Y/N)?"
450 GOSUB150
460 IFA$="Y"ORA$="[217]"THENA=A+2
470 GOSUB180
480 PRINTV$"[196]O YOU LIVE WITH A SPOUSE OR FRIEND     (Y/N)?"
490 GOSUB150
500 IFA$="Y"ORA$="[217]"THENA=A+5:GOTO560
510 PRINT"[145][145][200]OW MANY YEARS HAVE YOU LIVED ALONE     SINCE AGE 25?"
512 PRINT"(1) 1-10 YEARS      (2) 11-20 YEARS     (3) 21+ YEARS";
520 GETB$:IFB$=""THEN520
525 IFVAL(B$)<1ORVAL(B$)>3THEN520
530 B=VAL(B$)
540 A=A-B
550 GOTO560
560 GOSUB180
570 PRINTV$"[196]O YOU SLEEP MORE THAN 10 HOURS EACH    NIGHT (Y/N)?"
580 GOSUB150
590 IFA$="Y"ORA$="[217]"THENA=A-4
600 GOSUB180
610 PRINTV$"[193]RE YOU INTENSE, AGRESSIVE, EASILY      ANGERED (Y/N)?"
620 GOSUB150
630 IFA$="Y"ORA$="[217]"THENA=A-3
640 GOSUB180
650 PRINTV$"[193]RE YOU USUALLY EASY-GOING AND RELAXED  (Y/N)?"
660 GOSUB150
670 IFA$="Y"ORA$="[217]"THENA=A+3
680 GOSUB180
690 PRINTV$"[193]RE YOU H[146]APPY OR U[146]NHAPPY (H/U)?"
700 GETA$:IFA$=""THEN700
710 IFA$<>"H"ANDA$<>"[200]"ANDA$<>"U"ANDA$<>"[213]"THENGOTO700
720 IFA$="H"ORA$="[200]"THENA=A+1:GOTO740
730 A=A-2
740 GOSUB180
750 PRINTV$"[200]AVE YOU HAD A SPEEDING TICKET IN THE   LAST YEAR (Y/N)?"
760 GOSUB150
770 IFA$="Y"ORA$="[217]"THENA=A-1
780 GOSUB180
790 PRINTV$"[196]O YOU EARN OVER $50,000 PER YEAR (Y/N)?"
800 GOSUB150
810 IFA$="Y"ORA$="[217]"THENA=A-2
820 GOSUB180
830 PRINTV$"[193]RE YOU A COLLEGE GRADUATE (Y/N)?"
840 GOSUB150
850 IFA$="Y"ORA$="[217]"THENA=A+1
860 GOSUB180
870 PRINTV$"[196]O YOU HAVE A GRADUATE OR PROFESSIONAL  DEGREE (Y/N)?"
880 GOSUB150
890 IFA$="Y"ORA$="[217]"THENA=A+2
900 GOSUB180
910 PRINTV$"[193]RE YOU OVER 65 AND STILL WORKING (Y/N)?"
920 GOSUB150
930 IFA$="Y"ORA$="[217]"THENA=A+3
940 GOSUB180
950 PRINTV$"[196]ID ANY OF YOUR GRANDPARENTS LIVE TO    AGE 85 (Y/N)?"
960 GOSUB150
970 IFA$="Y"ORA$="[217]"THENA=A+2
980 GOSUB180
990 PRINTV$"[196]ID EITHER OF YOUR PARENTS DIE OF A"
995 PRINT"STROKE OR HEART ATTACK BEFORE AGE 50    (Y/N)?"
1000 GOSUB150
1010 IFA$="Y"ORA$="[217]"THENA=A-4
1020 GOSUB180
1030 PRINTV$"[196]OES/DID ANY PARENT, BROTHER/SISTER"
1032 PRINT"UNDER 50 HAVE/HAD CANCER, HEART CONDI-"
1034 PRINT"TION OR HAS/HAD DIABETES SINCE CHILD-   HOOD (Y/N)?"
1040 GOSUB150
1050 IFA$="Y"ORA$="[217]"THENA=A-3
1060 GOSUB180
1070 PRINTLEFT$(V$,7)"[200]OW MANY PACKS OF CIGARETTES PER DAY TO DO YOU SMOKE?"
1080 PRINT"(0) ===> [206]ONE":PRINT"(1) ==> 1/2 - 1":PRINT"(2) ==> 1 - 2"
1090 PRINT"(3) ==> [205]ORE THAN 2"
1100 GETB$:IFB$=""THEN1100
1102 IFB$<>"0"ANDB$<>"1"ANDB$<>"2"ANDB$<>"3"THEN1100
1110 B=VAL(B$)
1120 IFB=0THENGOTO1150
1130 IFB=3THENA=A-8:GOTO1150
1140 A=A-(B*3)
1150 GOSUB180
1160 PRINTV$"[196]O YOU DRINK THE EQUIVALANT OF A QUART  BOTTLE OF LIQUOR A DAY (Y/N)?"
1170 GOSUB150
1190 GOSUB180
1200 PRINTV$"[193]RE YOU OVERWEIGHT (Y/N)?"
1210 GOSUB150
1220 IFA$="N"ORA$="[206]"THENGOTO1300
1230 PRINT"[145][145][145][194]Y HOW MUCH?             "
1232 PRINT"(1) ==> 50+ LBS          ":PRINT"(2) ==> 30-50 LBS"
1234 :PRINT"(3) ==> 30 LBS OR LESS"
1250 GETB$:IFB$=""THEN1250
1252 IFVAL(B$)<1ORVAL(B$)>3THEN1250
1260 B=VAL(B$)
1270 IFB=1THENA=A-8:GOTO1300
1280 IFB=2THENA=A-4:GOTO1300
1290 A=A-2
1300 GOSUB180
1310 PRINTV$"[193]RE YOU OVER 40 AND DO YOU HAVE A YEARLYCHECKUP (Y/N)?"
1320 GOSUB150
1330 IFA$="[217]"ORA$="Y"THENA=A+2
1340 GOSUB180
1350 FORI=1TO1000:NEXT
1360 PRINT"[147]"
1370 PRINTTAB(15)"[193]GE [193]DJUSTMENT"
1380 PRINTTAB(7)"[201]F YOU ARE:"TAB(30)"[208]RESS:"
1390 PRINT"     [194]ETWEEN 30 AND 40"TAB(32)"1"
1400 PRINT"     [194]ETWEEN 40 AND 50"TAB(32)"2"
1410 PRINT"     [194]ETWEEN 50 AND 70"TAB(32)"3"
1420 PRINT"     [207]VER 70"TAB(32)"4"
1430 PRINT"     [206]ONE OF THE ABOVE"TAB(32)"5"
1440 GETB$:IFB$=""THEN1440
1442 IFVAL(B$)<1ORVAL(B$)>5THEN1440
1450 B=VAL(B$)
1460 IFB<>5THENA=A+B+1
1470 GOSUB180
1480 PRINT""
1490 PRINT"     [217]OUR LIFE EXPECTANCY IS ";A"[146]"
1510 PRINT"[200]OW WELL HAVE YOU DONE?  [212]HE FOLLOWING"
1520 PRINT"CHART TELLS WHAT PERCENT OF THE POP-"
1522 PRINT"ULATION YOU WILL OUTLIVE IF YOU MAKE IT"
1524 PRINT"TO YOUR LIFE EXPECTANCY."
1530 PRINT"[193]GE   60  65  70  75  80  85  90  95"
1540 PRINT"[205]EN   26% 36% 48% 61% 75% 87% 96% 99%"
1550 PRINT"[215]OMEN 15% 20% 30% 39% 53% 70% 88% 97%"
1555 PRINT"     [208]RESS <[211][208][193][195][197] [194][193][210]> TO CONTINUE";
1557 GETK$:IFK$=""THEN1557
1560 PRINT"[147][206]OW TRY IT AGAIN AND SEE WHAT HAPPENS"
1562 PRINT"IF YOU CHANGE JUST A FEW OF YOUR LIFE-  STYLE HABITS."
1570 PRINT"[196]O YOU WANT TO RUN THE PROGRAM AGAIN    (Y/N)?"
1580 GETK$:IFK$=""THEN1580
1590 IFK$="Y"ORK$="[217]"THENGOTO5
1600 IFK$="N"ORK$="[206]"THEN63000
1610 GOTO1580
1700 :
60000 T$="                      ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(9)""T$:PRINTSPC(9)" [204]IFE [197]XPECTANCY [209]UIZ [146]"
60051 PRINTSPC(9)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(14)"[202]OHN [207]RBAN"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END